(module mp2-top  (lib "eopl.ss" "eopl")
  (require "drscheme-init.scm")
  (require "mp2-soln.scm")
  (define mp2-tests
    (list
     (list 'constant "33" 33)
     (list 'sum-1 "+(33,44)" 77)
     (list 'diff-1 "-(33,11)" 22)
     (list 'product-divide-2 "*(/(+(2,4) , 2), /(10,2))" 15)
     (list 'product-divide "*(2, /(10,2))" 10)
     (list 'product-add "*(2, +(3,2))" 10)
     (list 'product-1 "*(22,2)" 44)
     (list 'constant "22" 22)
     ))

 
  (define run-mp2-tests
    (lambda ()
      (run-tests! value-of-aexp-string equal? mp2-tests)))
  (run-mp2-tests)
  )